home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 June / Personal_Computer_World_Jun_97.iso / dxrs / refpcw06.dxr / 00020_REFReplaceLinesButtons .ls < prev    next >
Encoding:
Text File  |  1997-03-24  |  472 b   |  15 lines
  1. on REFReplaceLinesButtons s
  2.   global IFLButtonList, IFLReferenceNameSprite, REFMasterList, REFLastActive
  3.   repeat with f = 1 to count(IFLButtonList)
  4.     set ThisTempList to getAt(IFLButtonList, f)
  5.     if getAt(ThisTempList, 1) <> IFLReferenceNameSprite then
  6.       set the locH of sprite getAt(ThisTempList, 1) to getAt(ThisTempList, 3)
  7.     end if
  8.   end repeat
  9.   if s = 4 then
  10.     set the castNum of sprite 3 to 66
  11.   else
  12.     set the castNum of sprite 3 to 55
  13.   end if
  14. end
  15.